home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / fgl110c.zip / 08-07.C < prev    next >
Text File  |  1992-01-31  |  449b  |  32 lines
  1. #include <fastgraf.h>
  2.  
  3. void main(void);
  4.  
  5. void main()
  6. {
  7.    int old_mode;
  8.  
  9.    old_mode = fg_getmode();
  10.    fg_setmode(3);
  11.    fg_cursor(0);
  12.    fg_setattr(10,0,0);
  13.  
  14.    fg_locate(1,0);
  15.    fg_text("Page ",5);
  16.    fg_waitkey();
  17.  
  18.    fg_setpage(1);
  19.    fg_locate(23,0);
  20.    fg_text("Page 1",6);
  21.  
  22.    fg_setpage(0);
  23.    fg_text("0",1);
  24.    fg_waitkey();
  25.  
  26.    fg_setvpage(1);
  27.    fg_waitkey();
  28.  
  29.    fg_setmode(old_mode);
  30.    fg_reset();
  31. }
  32.